Ideas:

1 Transects

Plant Flowers Date lon lat ele Month Year julian
Glossoloma oblongicalyx 4 2015-10-19 -78.59093 0.130838 2270 October 2015 292
Gasteranthus quitensis 2 2016-10-17 -78.59770 0.120070 1940 October 2016 291
Kohleria affinis 1 2016-12-13 -78.59534 0.126746 2110 December 2016 348
Columnea ciliata 3 2014-02-27 -78.59934 0.116682 1960 February 2014 58
Columnea medicinalis 1 2014-04-23 -78.59372 0.128700 2130 April 2014 113
Drymonia teuscheri 3 2016-07-28 -78.59245 0.129393 2200 July 2016 210

2 Interactions

3 Phylogeny

4 Traits

Correlation among matrices

4.0.1 Total Flowers

4.1 Peak date

As range

4.2 Species elevation ranges

4.3 Flowering Data Matrix

5 Correlation in association matrices

ade4::mantel.rtest(as.dist(D),as.dist(Dtraits))
## Monte-Carlo test
## Call: ade4::mantel.rtest(m1 = as.dist(D), m2 = as.dist(Dtraits))
## 
## Observation: 0.462266 
## 
## Based on 99 replicates
## Simulated p-value: 0.01 
## Alternative hypothesis: greater 
## 
##     Std.Obs Expectation    Variance 
##  3.95333672 -0.01629386  0.01465362
ade4::mantel.rtest(as.dist(Dint),as.dist(Dtraits))
## Monte-Carlo test
## Call: ade4::mantel.rtest(m1 = as.dist(Dint), m2 = as.dist(Dtraits))
## 
## Observation: 0.09988545 
## 
## Based on 99 replicates
## Simulated p-value: 0.23 
## Alternative hypothesis: greater 
## 
##      Std.Obs  Expectation     Variance 
##  0.803977227 -0.002729611  0.016290511
ade4::mantel.rtest(as.dist(D),as.dist(Dint))
## Monte-Carlo test
## Call: ade4::mantel.rtest(m1 = as.dist(D), m2 = as.dist(Dint))
## 
## Observation: 0.1268094 
## 
## Based on 99 replicates
## Simulated p-value: 0.28 
## Alternative hypothesis: greater 
## 
##     Std.Obs Expectation    Variance 
## 0.746400643 0.002709767 0.027643748

6 Baseline model

Equal probability of flowering at anytime.

## sink("model/threshold_baseline.jags")
## cat("
##     model {
##     
##     for (x in 1:Nobs){
## 
##     #Observation of a flowering plant
##     Y[x] ~ dbern(p[x])
##     logit(p[x]) <- alpha[Plant[x]] 
##     
##     #Residuals
##     discrepancy[x] <- abs(Y[x] - p[x])
##     
##     #Assess Model Fit
##     Ynew[x] ~ dbern(p[x])
##     discrepancy.new[x]<-abs(Ynew[x] - p[x])
##     }
##     
##     
##     #Sum discrepancy
##     fit<-sum(discrepancy)/Nobs
##     fitnew<-sum(discrepancy.new)/Nobs
##     
##     #Prediction
##     
##     for(x in 1:Npreds){
##     #predict value
##     
##     #Observation - probability of flowering
##     prediction[x] ~ dbern(p_new[x])
##     logit(p_new[x])<-alpha[PredPlant[x]]
##     
##     #predictive error
##     pred_error[x] <- abs(Ypred[x] - prediction[x])
##     }
##     
##     
##     #Predictive Error
##     fitpred<-sum(pred_error)/Npreds
##     
##     #Priors
##     
##     #Species level priors
##     
##     for (j in 1:Plants){
##     
##     #Intercept flowering probability
##     alpha[j] ~ dnorm(0,0.386)
##     
##     } 
## 
##     }
##     ",fill=TRUE)
## 
## sink()
## Compiling model graph
##    Resolving undeclared variables
##    Allocating nodes
## Graph information:
##    Observed stochastic nodes: 2548
##    Unobserved stochastic nodes: 3164
##    Total graph size: 15848
## 
## Initializing model

7 Get Chains

7.0.1 Evaluate convergence

7.0.2 Posterior estimates

8 Phylogeny

8.1 Attraction

## sink("model/threshold_attraction.jags")
## cat("
##     model {
##     
##     for (x in 1:Nobs){
##     
##     #Observation of a flowering plant
##     Y[x] ~ dbern(p[x])
##     logit(p[x]) <-  alpha[Plant[x]] + e[Plant[x],Site[x],Month[x]]
##     
##     #Residuals
##     discrepancy[x] <- abs(Y[x] - p[x])
##     
##     #Assess Model Fit
##     Ynew[x] ~ dbern(p[x])
##     discrepancy.new[x]<-abs(Ynew[x] - p[x])
##     }
##     
##     #Sum discrepancy
##     fit<-sum(discrepancy)/Nobs
##     fitnew<-sum(discrepancy.new)/Nobs
##     
##     #Prediction
##     
##     for(x in 1:Npreds){
##     #predict value
##     
##     #Observation - probability of flowering
##     prediction[x] ~ dbern(p_new[x])
##     logit(p_new[x])<- alpha[NewPlant[x]] + e[NewPlant[x],NewSite[x],NewMonth[x]]
##     
##     #predictive error
##     pred_error[x] <- abs(Ypred[x] - p_new[x])
##     }
##     
##     #Predictive Error
##     fitpred<-sum(pred_error)/Npreds
##     
##     #########################
##     #autocorrelation in error
##     #########################
##     
##     #For each of observation
##     for(y in 1:Sites){
##     for(x in 1:Months){
##     e[1:Plants,y,x] ~ dmnorm(zeros,tauC[,])
##     }
##     }
## 
##     ##covariance among similiar species
##     for(i in 1:Plants){
##     for(j in 1:Plants){
##     C[i,j] = exp(-lambda_cov * D[i,j])
##     }
##     }
##     
##     ## Covert variance to precision for each parameter, allow omega to shrink to identity matrix
##     vCov = omega*C[,] + (1-omega) * I
##     tauC=inverse(vCov*gamma)
##     
##     #Priors
##     
##     #Species level priors
##     
##     for (j in 1:Plants){
##     
##     #Intercept flowering probability
##     alpha[j] ~ dnorm(0,0.386)
##     
##     } 
##     #Autocorrelation priors
##     gamma = 1
##     
##     #Strength of covariance decay
##     lambda_cov = 2
##     omega  = 1
##     }
##     ",fill=TRUE)
## 
## sink()
## Compiling model graph
##    Resolving undeclared variables
##    Allocating nodes
## Graph information:
##    Observed stochastic nodes: 2548
##    Unobserved stochastic nodes: 3236
##    Total graph size: 26804
## 
## Initializing model

9 Get Chains

9.0.1 Evaluate convergence

9.0.2 Posterior estimates

9.1 Effect of phylogenetic attraction

9.2 Repulsion

## sink("model/threshold_repulsion.jags")
## cat("
##     model {
##     
##     for (x in 1:Nobs){
##     
##     #Observation of a flowering plant
##     Y[x] ~ dbern(p[x])
##     logit(p[x]) <-  alpha[Plant[x]] + e[Plant[x],Site[x],Month[x]]
##     
##     #Residuals
##     discrepancy[x] <- abs(Y[x] - p[x])
##     
##     #Assess Model Fit
##     Ynew[x] ~ dbern(p[x])
##     discrepancy.new[x]<-abs(Ynew[x] - p[x])
##     }
##     
##     
##     #Sum discrepancy
##     fit<-sum(discrepancy)/Nobs
##     fitnew<-sum(discrepancy.new)/Nobs
##     
##     #Prediction
##     
##     for(x in 1:Npreds){
##     #predict value
##     
##     #Observation - probability of flowering
##     prediction[x] ~ dbern(p_new[x])
##     logit(p_new[x])<- alpha[NewPlant[x]] + e[NewPlant[x],NewSite[x],NewMonth[x]]
##     
##     #predictive error
##     pred_error[x] <- abs(Ypred[x] - p_new[x])
##     }
##     
##     #Predictive Error
##     fitpred<-sum(pred_error)/Npreds
##     
##     #########################
##     #autocorrelation in error
##     #########################
##     
##     #For each of observation
##     for(x in 1:Months){
##     for(y in 1:Sites){
##     e[1:Plants,y,x] ~ dmnorm(zeros,tauC[,])
##     }
##     }
##     ##covariance among similiar species
##     for(i in 1:Plants){
##     for(j in 1:Plants){
##     C[i,j] = exp(-lambda_cov * D[i,j])
##     }
##     }
##     
##     ## Covert variance to precision for each parameter, allow omega to shrink to identity matrix
##     vCov = omega*C[,] + (1-omega) * I
##     tauC=vCov*gamma
##     
##     #Priors
##     
##     #Species level priors
##     
##     for (j in 1:Plants){
##     
##     #Intercept flowering probability
##     alpha[j] ~ dnorm(0,0.386)
##     
##     } 
##     #Autocorrelation priors
##     gamma = 5
##     
##     #Strength of covariance decay
##     lambda_cov = 1
##     omega = 1
##     }
##     ",fill=TRUE)
## 
## sink()
## Compiling model graph
##    Resolving undeclared variables
##    Allocating nodes
## Graph information:
##    Observed stochastic nodes: 2548
##    Unobserved stochastic nodes: 3236
##    Total graph size: 26803
## 
## Initializing model

10 Get Chains

10.0.1 Evaluate convergence

10.0.2 Posterior estimates

10.1 Effect of phylogenetic repulsion

11 Traits

11.1 Trait Attraction

## sink("model/threshold_attraction.jags")
## cat("
##     model {
##     
##     for (x in 1:Nobs){
##     
##     #Observation of a flowering plant
##     Y[x] ~ dbern(p[x])
##     logit(p[x]) <-  alpha[Plant[x]] + e[Plant[x],Site[x],Month[x]]
##     
##     #Residuals
##     discrepancy[x] <- abs(Y[x] - p[x])
##     
##     #Assess Model Fit
##     Ynew[x] ~ dbern(p[x])
##     discrepancy.new[x]<-abs(Ynew[x] - p[x])
##     }
##     
##     #Sum discrepancy
##     fit<-sum(discrepancy)/Nobs
##     fitnew<-sum(discrepancy.new)/Nobs
##     
##     #Prediction
##     
##     for(x in 1:Npreds){
##     #predict value
##     
##     #Observation - probability of flowering
##     prediction[x] ~ dbern(p_new[x])
##     logit(p_new[x])<- alpha[NewPlant[x]] + e[NewPlant[x],NewSite[x],NewMonth[x]]
##     
##     #predictive error
##     pred_error[x] <- abs(Ypred[x] - p_new[x])
##     }
##     
##     #Predictive Error
##     fitpred<-sum(pred_error)/Npreds
##     
##     #########################
##     #autocorrelation in error
##     #########################
##     
##     #For each of observation
##     for(y in 1:Sites){
##     for(x in 1:Months){
##     e[1:Plants,y,x] ~ dmnorm(zeros,tauC[,])
##     }
##     }
## 
##     ##covariance among similiar species
##     for(i in 1:Plants){
##     for(j in 1:Plants){
##     C[i,j] = exp(-lambda_cov * D[i,j])
##     }
##     }
##     
##     ## Covert variance to precision for each parameter, allow omega to shrink to identity matrix
##     vCov = omega*C[,] + (1-omega) * I
##     tauC=inverse(vCov*gamma)
##     
##     #Priors
##     
##     #Species level priors
##     
##     for (j in 1:Plants){
##     
##     #Intercept flowering probability
##     alpha[j] ~ dnorm(0,0.386)
##     
##     } 
##     #Autocorrelation priors
##     gamma = 1
##     
##     #Strength of covariance decay
##     lambda_cov = 2
##     omega  = 1
##     }
##     ",fill=TRUE)
## 
## sink()
## Compiling model graph
##    Resolving undeclared variables
##    Allocating nodes
## Graph information:
##    Observed stochastic nodes: 2548
##    Unobserved stochastic nodes: 3236
##    Total graph size: 26960
## 
## Initializing model

12 Get Chains

12.0.1 Evaluate convergence

12.0.2 Posterior estimates

12.1 Effect of trait attraction

12.2 Repulsion

## sink("model/threshold_repulsion.jags")
## cat("
##     model {
##     
##     for (x in 1:Nobs){
##     
##     #Observation of a flowering plant
##     Y[x] ~ dbern(p[x])
##     logit(p[x]) <-  alpha[Plant[x]] + e[Plant[x],Site[x],Month[x]]
##     
##     #Residuals
##     discrepancy[x] <- abs(Y[x] - p[x])
##     
##     #Assess Model Fit
##     Ynew[x] ~ dbern(p[x])
##     discrepancy.new[x]<-abs(Ynew[x] - p[x])
##     }
##     
##     
##     #Sum discrepancy
##     fit<-sum(discrepancy)/Nobs
##     fitnew<-sum(discrepancy.new)/Nobs
##     
##     #Prediction
##     
##     for(x in 1:Npreds){
##     #predict value
##     
##     #Observation - probability of flowering
##     prediction[x] ~ dbern(p_new[x])
##     logit(p_new[x])<- alpha[NewPlant[x]] + e[NewPlant[x],NewSite[x],NewMonth[x]]
##     
##     #predictive error
##     pred_error[x] <- abs(Ypred[x] - p_new[x])
##     }
##     
##     #Predictive Error
##     fitpred<-sum(pred_error)/Npreds
##     
##     #########################
##     #autocorrelation in error
##     #########################
##     
##     #For each of observation
##     for(x in 1:Months){
##     for(y in 1:Sites){
##     e[1:Plants,y,x] ~ dmnorm(zeros,tauC[,])
##     }
##     }
##     ##covariance among similiar species
##     for(i in 1:Plants){
##     for(j in 1:Plants){
##     C[i,j] = exp(-lambda_cov * D[i,j])
##     }
##     }
##     
##     ## Covert variance to precision for each parameter, allow omega to shrink to identity matrix
##     vCov = omega*C[,] + (1-omega) * I
##     tauC=vCov*gamma
##     
##     #Priors
##     
##     #Species level priors
##     
##     for (j in 1:Plants){
##     
##     #Intercept flowering probability
##     alpha[j] ~ dnorm(0,0.386)
##     
##     } 
##     #Autocorrelation priors
##     gamma = 5
##     
##     #Strength of covariance decay
##     lambda_cov = 1
##     omega = 1
##     }
##     ",fill=TRUE)
## 
## sink()
## Compiling model graph
##    Resolving undeclared variables
##    Allocating nodes
## Graph information:
##    Observed stochastic nodes: 2548
##    Unobserved stochastic nodes: 3236
##    Total graph size: 26959
## 
## Initializing model

13 Get Chains

13.0.1 Evaluate convergence

13.0.2 Posterior estimates

13.1 Effect of trait repulsion

14 Interaction

14.1 Attraction

## sink("model/threshold_attraction.jags")
## cat("
##     model {
##     
##     for (x in 1:Nobs){
##     
##     #Observation of a flowering plant
##     Y[x] ~ dbern(p[x])
##     logit(p[x]) <-  alpha[Plant[x]] + e[Plant[x],Site[x],Month[x]]
##     
##     #Residuals
##     discrepancy[x] <- abs(Y[x] - p[x])
##     
##     #Assess Model Fit
##     Ynew[x] ~ dbern(p[x])
##     discrepancy.new[x]<-abs(Ynew[x] - p[x])
##     }
##     
##     #Sum discrepancy
##     fit<-sum(discrepancy)/Nobs
##     fitnew<-sum(discrepancy.new)/Nobs
##     
##     #Prediction
##     
##     for(x in 1:Npreds){
##     #predict value
##     
##     #Observation - probability of flowering
##     prediction[x] ~ dbern(p_new[x])
##     logit(p_new[x])<- alpha[NewPlant[x]] + e[NewPlant[x],NewSite[x],NewMonth[x]]
##     
##     #predictive error
##     pred_error[x] <- abs(Ypred[x] - p_new[x])
##     }
##     
##     #Predictive Error
##     fitpred<-sum(pred_error)/Npreds
##     
##     #########################
##     #autocorrelation in error
##     #########################
##     
##     #For each of observation
##     for(y in 1:Sites){
##     for(x in 1:Months){
##     e[1:Plants,y,x] ~ dmnorm(zeros,tauC[,])
##     }
##     }
## 
##     ##covariance among similiar species
##     for(i in 1:Plants){
##     for(j in 1:Plants){
##     C[i,j] = exp(-lambda_cov * D[i,j])
##     }
##     }
##     
##     ## Covert variance to precision for each parameter, allow omega to shrink to identity matrix
##     vCov = omega*C[,] + (1-omega) * I
##     tauC=inverse(vCov*gamma)
##     
##     #Priors
##     
##     #Species level priors
##     
##     for (j in 1:Plants){
##     
##     #Intercept flowering probability
##     alpha[j] ~ dnorm(0,0.386)
##     
##     } 
##     #Autocorrelation priors
##     gamma = 1
##     
##     #Strength of covariance decay
##     lambda_cov = 2
##     omega  = 1
##     }
##     ",fill=TRUE)
## 
## sink()
## Compiling model graph
##    Resolving undeclared variables
##    Allocating nodes
## Graph information:
##    Observed stochastic nodes: 2548
##    Unobserved stochastic nodes: 3236
##    Total graph size: 26960
## 
## Initializing model

14.1.1 Evaluate convergence

14.1.2 Posterior estimates

14.2 Effect of interaction attraction

14.3 Repulsion

## sink("model/threshold_repulsion.jags")
## cat("
##     model {
##     
##     for (x in 1:Nobs){
##     
##     #Observation of a flowering plant
##     Y[x] ~ dbern(p[x])
##     logit(p[x]) <-  alpha[Plant[x]] + e[Plant[x],Site[x],Month[x]]
##     
##     #Residuals
##     discrepancy[x] <- abs(Y[x] - p[x])
##     
##     #Assess Model Fit
##     Ynew[x] ~ dbern(p[x])
##     discrepancy.new[x]<-abs(Ynew[x] - p[x])
##     }
##     
##     
##     #Sum discrepancy
##     fit<-sum(discrepancy)/Nobs
##     fitnew<-sum(discrepancy.new)/Nobs
##     
##     #Prediction
##     
##     for(x in 1:Npreds){
##     #predict value
##     
##     #Observation - probability of flowering
##     prediction[x] ~ dbern(p_new[x])
##     logit(p_new[x])<- alpha[NewPlant[x]] + e[NewPlant[x],NewSite[x],NewMonth[x]]
##     
##     #predictive error
##     pred_error[x] <- abs(Ypred[x] - p_new[x])
##     }
##     
##     #Predictive Error
##     fitpred<-sum(pred_error)/Npreds
##     
##     #########################
##     #autocorrelation in error
##     #########################
##     
##     #For each of observation
##     for(x in 1:Months){
##     for(y in 1:Sites){
##     e[1:Plants,y,x] ~ dmnorm(zeros,tauC[,])
##     }
##     }
##     ##covariance among similiar species
##     for(i in 1:Plants){
##     for(j in 1:Plants){
##     C[i,j] = exp(-lambda_cov * D[i,j])
##     }
##     }
##     
##     ## Covert variance to precision for each parameter, allow omega to shrink to identity matrix
##     vCov = omega*C[,] + (1-omega) * I
##     tauC=vCov*gamma
##     
##     #Priors
##     
##     #Species level priors
##     
##     for (j in 1:Plants){
##     
##     #Intercept flowering probability
##     alpha[j] ~ dnorm(0,0.386)
##     
##     } 
##     #Autocorrelation priors
##     gamma = 5
##     
##     #Strength of covariance decay
##     lambda_cov = 1
##     omega = 1
##     }
##     ",fill=TRUE)
## 
## sink()
## Compiling model graph
##    Resolving undeclared variables
##    Allocating nodes
## Graph information:
##    Observed stochastic nodes: 2548
##    Unobserved stochastic nodes: 3236
##    Total graph size: 26959
## 
## Initializing model

15 Get Chains

15.0.1 Evaluate convergence

15.0.2 Posterior estimates

15.1 Effect of interaction repulsion

16 Model Comparison

16.0.1 E: The effect of autocorrelation

17 P(Flowering)

# One example

Glossoloma purpureum

18 By site

18.1 1300m - 1500m

18.2 1500-1700m

18.3 1700-1900

18.4 1900-2100m

18.5 2100-2300m

18.6 2300m - 2500m

18.7 Alpha: Species specific flowering rate

18.8 Omega: The magnitude of the effect of autocorrelation on mean flowering occurrence

18.9 Gamma: The variance of the effect of autocorrelation on mean flowering occurrence

18.10 Lambda: The decay in autocorrelation effect

18.11 Decay in autocorrelation effect

19 Model Fit

19.1 Bayesian pvalue

## # A tibble: 7 x 2
##   Model                       p
##   <chr>                   <dbl>
## 1 baseline                0.626
## 2 interaction_attraction  0.98 
## 3 interaction_repulsion   0.932
## 4 phylogenetic_attraction 0.85 
## 5 phylogenetic_repulsion  0.976
## 6 trait_attraction        0.794
## 7 trait_repulsion         0.996

Without baseline

## # A tibble: 6 x 2
##   Model                       p
##   <chr>                   <dbl>
## 1 interaction_attraction  0.98 
## 2 interaction_repulsion   0.932
## 3 phylogenetic_attraction 0.85 
## 4 phylogenetic_repulsion  0.976
## 5 trait_attraction        0.794
## 6 trait_repulsion         0.996

19.2 Model Fit

Model mean lower upper
trait_attraction 0.2182331 0.2110873 0.2252382
interaction_repulsion 0.2172792 0.2107648 0.2241485
phylogenetic_attraction 0.2149087 0.2069288 0.2221893
interaction_attraction 0.2032199 0.1966799 0.2101471
phylogenetic_repulsion 0.1946975 0.1878132 0.2012382
trait_repulsion 0.1826713 0.1754430 0.1895759

19.2.1 Without baseline

19.3 By Species

19.3.1 Without baseline

19.3.2 Zoom in

20 Prediction

20.0.1 Tables

Model mean lower upper
baseline 0.2441661 0.2208472 0.2675249
interaction_repulsion 0.2284131 0.2197851 0.2371903
trait_attraction 0.2267897 0.2163744 0.2376783
phylogenetic_attraction 0.2248918 0.2142312 0.2350866
interaction_attraction 0.2188010 0.2099067 0.2277325
phylogenetic_repulsion 0.2131075 0.2044507 0.2222859
trait_repulsion 0.2096261 0.2000644 0.2186667

20.0.2 Flowering Rates among models

Plant Month Observed baseline interaction_attraction interaction_repulsion phylogenetic_attraction phylogenetic_repulsion trait_attraction trait_repulsion
Besleria solanoides Apr 13.3 16.6 15.7 15.0 14.4 15.8 14.7 16.3
Besleria solanoides Aug 5.9 16.8 12.4 14.6 13.1 13.7 14.4 11.4
Besleria solanoides Dec 12.5 16.5 14.5 16.4 14.9 15.3 15.6 14.6
Besleria solanoides Feb 0.0 16.3 11.6 14.0 11.5 14.3 12.8 9.9
Besleria solanoides Jan 0.0 17.4 12.7 14.9 15.1 13.5 17.1 9.0
Besleria solanoides Jul 5.6 16.5 12.2 14.4 12.3 15.7 11.4 13.1
Besleria solanoides Jun 5.0 17.0 12.2 14.8 11.9 14.8 10.0 13.5
Besleria solanoides Mar 0.0 15.6 12.0 13.9 11.9 14.9 12.0 11.7
Besleria solanoides May 0.0 16.5 12.0 14.0 11.2 14.2 11.9 12.2
Besleria solanoides Nov 33.3 16.0 16.7 17.0 19.9 17.4 17.7 19.1
Besleria solanoides Oct 55.6 16.4 30.7 22.3 33.1 22.1 30.0 29.8
Besleria solanoides Sep 50.0 16.4 26.3 21.1 27.5 21.7 24.5 31.1
Columnea ciliata Apr 46.7 17.7 22.7 23.9 19.1 27.5 20.7 26.8
Columnea ciliata Aug 0.0 16.4 13.3 13.1 13.6 10.8 14.2 10.5
Columnea ciliata Dec 0.0 16.4 14.6 14.7 12.4 14.4 11.7 14.5
Columnea ciliata Feb 43.8 15.9 25.8 20.7 21.6 24.8 21.6 24.9
Columnea ciliata Jan 25.0 16.4 22.8 17.3 18.6 19.2 17.6 21.2
Columnea ciliata Jul 5.6 16.5 13.8 13.9 18.2 11.2 17.4 12.2
Columnea ciliata Jun 10.0 16.2 15.2 14.3 18.9 11.6 16.6 13.3
Columnea ciliata Mar 66.7 16.9 25.7 26.7 22.9 33.7 22.2 31.1
Columnea ciliata May 5.9 16.7 14.9 13.4 17.4 11.6 15.5 12.9
Columnea ciliata Nov 0.0 16.9 12.1 14.6 12.0 14.3 11.9 13.8
Columnea ciliata Oct 0.0 16.8 11.8 14.7 11.1 12.1 11.8 11.9
Columnea ciliata Sep 0.0 16.2 12.4 12.3 11.5 12.4 12.4 11.4
Columnea kucyniakii Apr 6.7 9.0 8.5 7.3 8.0 7.7 9.7 5.8
Columnea kucyniakii Aug 0.0 8.2 7.8 8.1 8.0 6.8 7.3 6.7
Columnea kucyniakii Dec 12.5 8.5 9.2 10.0 7.3 10.5 7.9 11.3
Columnea kucyniakii Feb 43.8 8.2 14.6 14.7 14.0 14.5 13.7 21.8
Columnea kucyniakii Jan 25.0 9.8 13.5 11.6 12.5 12.5 12.4 16.4
Columnea kucyniakii Jul 0.0 8.4 6.8 8.4 9.0 7.0 8.0 7.2
Columnea kucyniakii Jun 0.0 8.3 7.0 8.3 8.5 7.3 8.1 5.9
Columnea kucyniakii Mar 16.7 8.3 12.4 9.4 11.3 10.5 10.9 11.3
Columnea kucyniakii May 0.0 9.1 7.6 8.3 8.3 6.9 9.9 4.3
Columnea kucyniakii Nov 11.1 8.2 8.8 9.0 6.7 9.6 6.8 10.8
Columnea kucyniakii Oct 0.0 8.4 6.4 7.9 6.1 7.5 6.4 7.7
Columnea kucyniakii Sep 0.0 8.8 6.3 8.2 7.2 7.6 7.5 5.9
Columnea medicinalis Apr 0.0 15.0 11.7 13.1 13.2 10.0 12.7 10.9
Columnea medicinalis Aug 23.5 14.4 17.7 16.4 15.7 19.3 15.6 19.2
Columnea medicinalis Dec 0.0 13.8 11.4 13.8 10.4 10.6 10.5 12.8
Columnea medicinalis Feb 12.5 14.6 14.2 14.6 16.3 12.8 16.6 12.4
Columnea medicinalis Jan 16.7 15.2 16.2 14.4 17.5 14.0 14.5 15.7
Columnea medicinalis Jul 27.8 15.4 17.7 16.8 18.0 19.3 18.7 18.5
Columnea medicinalis Jun 20.0 14.6 17.3 13.8 18.3 16.2 20.4 12.6
Columnea medicinalis Mar 8.3 14.8 12.4 13.3 14.0 12.6 13.3 11.8
Columnea medicinalis May 11.8 14.7 15.0 14.1 16.6 11.9 15.9 10.6
Columnea medicinalis Nov 11.1 14.8 13.2 14.8 11.4 14.9 10.7 16.1
Columnea medicinalis Oct 22.2 15.5 16.3 17.3 12.5 20.4 12.7 21.3
Columnea medicinalis Sep 5.0 15.1 11.1 13.8 11.2 11.1 10.2 12.8
Columnea picta Apr 13.3 14.2 13.2 13.0 12.7 13.9 13.7 13.7
Columnea picta Aug 5.9 13.6 12.4 12.8 14.2 10.3 12.9 12.7
Columnea picta Dec 12.5 14.2 12.4 14.2 10.8 14.5 12.0 12.8
Columnea picta Feb 6.2 13.6 14.0 11.8 14.8 10.1 17.3 9.6
Columnea picta Jan 16.7 13.7 17.2 13.7 16.1 14.8 17.1 14.0
Columnea picta Jul 16.7 14.7 14.9 14.0 17.0 13.6 13.9 15.1
Columnea picta Jun 25.0 14.4 15.8 16.7 17.5 17.3 15.4 17.9
Columnea picta Mar 0.0 14.3 11.2 11.9 13.6 9.8 14.6 9.4
Columnea picta May 35.3 14.3 18.3 20.4 18.2 23.3 17.9 23.3
Columnea picta Nov 0.0 14.4 11.2 12.8 10.5 11.4 10.8 11.0
Columnea picta Oct 0.0 14.9 9.7 11.2 10.4 10.1 10.0 10.7
Columnea picta Sep 20.0 14.0 16.2 14.2 12.0 17.4 12.6 16.5
Columnea strigosa Apr 0.0 12.9 9.7 10.4 11.9 7.2 10.4 7.9
Columnea strigosa Aug 11.8 12.2 13.5 10.4 11.2 12.4 12.6 12.8
Columnea strigosa Dec 0.0 12.7 10.1 10.8 8.8 9.2 8.8 10.5
Columnea strigosa Feb 12.5 13.1 11.6 13.4 14.6 10.4 14.2 11.5
Columnea strigosa Jan 8.3 11.9 13.1 10.4 12.7 8.7 12.3 8.8
Columnea strigosa Jul 27.8 12.6 17.9 15.3 16.1 18.7 17.5 17.6
Columnea strigosa Jun 40.0 12.8 19.3 21.0 17.8 24.5 19.9 22.7
Columnea strigosa Mar 0.0 12.4 9.8 10.0 12.4 5.9 11.7 8.1
Columnea strigosa May 23.5 12.7 13.6 15.4 14.9 16.3 15.6 15.2
Columnea strigosa Nov 0.0 11.9 11.6 9.3 9.2 9.7 9.3 10.0
Columnea strigosa Oct 0.0 12.7 11.2 7.7 8.0 9.3 8.8 7.7
Columnea strigosa Sep 0.0 13.2 9.0 9.8 8.3 9.3 8.3 9.7
Drymonia collegarum Apr 13.3 14.0 15.6 13.4 14.9 14.0 14.5 13.4
Drymonia collegarum Aug 17.6 14.1 14.3 15.3 16.3 13.4 16.4 13.2
Drymonia collegarum Dec 25.0 14.0 14.9 15.0 11.5 23.4 12.6 22.3
Drymonia collegarum Feb 6.2 13.6 14.6 10.9 12.7 10.8 11.2 11.9
Drymonia collegarum Jan 16.7 12.9 17.2 13.6 15.3 15.6 16.4 15.6
Drymonia collegarum Jul 11.1 14.0 12.2 14.0 14.8 12.3 12.1 12.6
Drymonia collegarum Jun 15.0 13.9 13.6 14.9 15.0 15.9 12.3 15.8
Drymonia collegarum Mar 8.3 13.5 14.7 11.1 14.1 11.0 13.7 11.1
Drymonia collegarum May 23.5 13.5 17.1 16.6 18.8 18.5 17.1 17.8
Drymonia collegarum Nov 11.1 14.7 12.0 13.2 11.2 14.4 13.4 11.7
Drymonia collegarum Oct 5.6 13.2 10.5 13.1 9.6 10.4 12.6 10.6
Drymonia collegarum Sep 10.0 13.4 11.1 14.8 11.2 12.8 13.3 13.5
Drymonia tenuis Apr 13.3 14.4 15.5 13.2 15.2 12.9 15.0 11.4
Drymonia tenuis Aug 11.8 14.1 13.9 13.0 15.1 12.3 15.6 11.3
Drymonia tenuis Dec 0.0 14.1 10.5 12.3 10.4 11.7 12.8 8.5
Drymonia tenuis Feb 18.8 14.2 14.2 15.2 14.7 15.3 12.7 18.5
Drymonia tenuis Jan 16.7 14.1 16.2 14.7 16.9 16.2 18.1 16.4
Drymonia tenuis Jul 16.7 14.4 14.7 15.0 15.9 15.4 12.4 18.9
Drymonia tenuis Jun 20.0 14.2 14.3 14.8 15.4 15.3 11.2 19.2
Drymonia tenuis Mar 25.0 14.9 17.6 16.5 16.5 19.2 14.9 19.8
Drymonia tenuis May 23.5 14.4 17.5 14.3 17.0 15.9 14.9 19.3
Drymonia tenuis Nov 0.0 14.8 11.2 13.4 10.2 12.0 16.1 6.6
Drymonia tenuis Oct 5.6 14.3 12.3 13.3 10.7 12.0 17.4 8.0
Drymonia tenuis Sep 5.0 14.1 11.9 13.1 10.9 12.0 14.5 10.2
Drymonia teuscheri Apr 26.7 16.5 20.7 18.5 18.3 22.8 18.5 22.5
Drymonia teuscheri Aug 23.5 16.6 18.9 18.7 18.5 19.4 19.7 19.3
Drymonia teuscheri Dec 0.0 16.0 12.6 15.8 14.2 10.4 15.7 10.6
Drymonia teuscheri Feb 6.2 17.5 14.6 15.1 15.5 11.5 14.3 13.0
Drymonia teuscheri Jan 16.7 16.7 17.2 16.2 17.9 15.0 19.2 14.6
Drymonia teuscheri Jul 22.2 16.8 17.3 19.6 18.6 21.5 16.9 21.4
Drymonia teuscheri Jun 15.0 16.5 15.0 17.1 18.4 15.9 15.0 17.3
Drymonia teuscheri Mar 16.7 16.8 16.4 15.9 16.9 18.3 16.2 17.8
Drymonia teuscheri May 29.4 16.9 22.2 20.0 22.3 21.6 21.2 21.3
Drymonia teuscheri Nov 11.1 17.1 14.5 15.6 13.0 15.5 16.4 16.2
Drymonia teuscheri Oct 11.1 16.4 16.3 13.9 13.0 15.8 15.8 15.2
Drymonia teuscheri Sep 10.0 17.0 15.0 15.4 13.1 14.3 16.0 13.2
Gasteranthus lateralis Apr 13.3 15.1 13.0 15.2 13.0 14.7 14.6 12.6
Gasteranthus lateralis Aug 17.6 14.3 16.9 14.3 15.1 15.6 15.3 16.3
Gasteranthus lateralis Dec 25.0 14.4 13.2 16.2 15.6 16.0 13.6 19.8
Gasteranthus lateralis Feb 0.0 14.3 12.0 11.2 11.2 11.6 12.0 8.5
Gasteranthus lateralis Jan 33.3 13.7 17.3 16.6 18.8 15.7 17.1 22.5
Gasteranthus lateralis Jul 0.0 13.8 13.1 10.2 10.3 12.5 11.0 8.8
Gasteranthus lateralis Jun 0.0 14.1 11.5 10.4 9.2 12.6 10.8 7.3
Gasteranthus lateralis Mar 8.3 13.7 12.4 15.1 11.9 14.5 14.1 9.6
Gasteranthus lateralis May 5.9 14.3 12.7 12.6 10.9 14.0 13.1 10.4
Gasteranthus lateralis Nov 44.4 14.6 18.5 19.0 20.6 18.5 17.0 30.1
Gasteranthus lateralis Oct 33.3 14.9 20.6 19.1 23.9 17.5 18.8 28.0
Gasteranthus lateralis Sep 10.0 13.7 13.0 13.8 15.2 12.1 14.8 13.1
Gasteranthus quitensis Apr 0.0 12.3 10.7 10.1 10.8 10.4 10.4 9.7
Gasteranthus quitensis Aug 17.6 12.1 11.7 11.9 12.2 12.2 11.5 15.5
Gasteranthus quitensis Dec 12.5 12.1 10.5 11.7 12.3 11.2 11.6 12.0
Gasteranthus quitensis Feb 18.8 12.5 15.0 12.8 11.7 14.3 10.6 17.3
Gasteranthus quitensis Jan 33.3 12.6 17.5 13.4 16.0 13.8 14.4 21.0
Gasteranthus quitensis Jul 5.6 12.6 11.1 11.5 10.0 12.5 9.0 12.3
Gasteranthus quitensis Jun 0.0 12.0 9.8 10.4 8.3 10.9 7.5 10.1
Gasteranthus quitensis Mar 0.0 11.9 10.1 10.1 9.7 11.0 8.5 11.4
Gasteranthus quitensis May 0.0 12.1 10.5 10.1 9.2 10.9 8.4 10.0
Gasteranthus quitensis Nov 11.1 12.8 11.4 12.2 14.0 9.4 12.9 8.5
Gasteranthus quitensis Oct 22.2 12.2 14.2 14.4 19.1 12.4 22.8 7.9
Gasteranthus quitensis Sep 20.0 12.2 13.8 12.9 15.0 13.0 17.6 9.6
Glossoloma oblongicalyx Apr 0.0 18.5 13.6 14.9 15.3 12.7 18.6 8.1
Glossoloma oblongicalyx Aug 35.3 18.4 24.7 22.8 22.3 24.5 20.2 28.8
Glossoloma oblongicalyx Dec 0.0 19.5 14.8 15.5 12.6 14.7 14.2 12.5
Glossoloma oblongicalyx Feb 0.0 19.0 13.9 14.6 16.2 11.9 18.2 9.3
Glossoloma oblongicalyx Jan 0.0 18.5 15.8 14.4 16.7 11.7 17.3 10.2
Glossoloma oblongicalyx Jul 38.9 18.9 25.0 23.6 25.0 26.1 23.2 29.8
Glossoloma oblongicalyx Jun 10.0 19.4 16.1 15.5 17.1 14.8 16.4 14.0
Glossoloma oblongicalyx Mar 0.0 19.5 14.2 15.3 15.4 12.7 18.6 8.5
Glossoloma oblongicalyx May 11.8 18.7 16.1 15.9 18.0 14.9 17.0 13.6
Glossoloma oblongicalyx Nov 22.2 19.4 19.0 17.9 15.4 20.0 15.8 20.6
Glossoloma oblongicalyx Oct 38.9 19.0 24.9 23.4 19.7 28.2 17.8 31.5
Glossoloma oblongicalyx Sep 35.0 18.9 20.8 24.1 21.5 24.2 20.3 27.3
Glossoloma purpureum Apr 6.7 13.4 13.0 12.4 11.3 13.9 13.9 13.3
Glossoloma purpureum Aug 17.6 13.4 11.8 14.9 14.4 12.5 14.4 12.1
Glossoloma purpureum Dec 12.5 13.8 12.0 14.2 10.4 15.1 11.0 14.7
Glossoloma purpureum Feb 12.5 13.3 12.8 13.1 13.2 13.4 13.5 14.2
Glossoloma purpureum Jan 16.7 13.4 17.3 13.3 14.1 16.6 13.6 17.1
Glossoloma purpureum Jul 22.2 14.2 15.5 15.1 17.3 14.5 16.2 15.2
Glossoloma purpureum Jun 10.0 13.0 13.9 12.9 14.0 13.4 12.3 13.6
Glossoloma purpureum Mar 0.0 13.2 11.6 12.5 12.0 11.8 12.9 11.0
Glossoloma purpureum May 5.9 13.1 14.0 11.7 13.3 12.0 13.4 11.5
Glossoloma purpureum Nov 11.1 13.6 10.9 14.4 11.3 12.6 12.3 12.2
Glossoloma purpureum Oct 11.1 13.6 10.0 13.4 12.8 10.4 11.8 9.9
Glossoloma purpureum Sep 25.0 13.9 17.3 15.3 15.5 17.1 15.6 18.3
Kohleria affinis Apr 46.7 16.2 23.9 20.9 23.7 18.6 20.2 25.0
Kohleria affinis Aug 5.9 14.9 13.8 14.3 12.8 14.7 14.5 13.5
Kohleria affinis Dec 12.5 15.0 14.2 16.6 14.0 15.2 13.2 15.8
Kohleria affinis Feb 25.0 15.2 18.3 17.2 18.9 16.4 20.2 16.0
Kohleria affinis Jan 8.3 15.3 15.2 13.6 14.8 14.5 16.7 11.9
Kohleria affinis Jul 0.0 15.5 11.4 12.9 11.8 14.2 14.8 10.4
Kohleria affinis Jun 15.0 15.8 15.3 16.7 15.6 15.7 15.3 16.4
Kohleria affinis Mar 41.7 15.7 24.0 20.1 24.4 18.9 21.0 21.0
Kohleria affinis May 29.4 15.1 20.5 17.4 19.3 17.3 18.6 22.1
Kohleria affinis Nov 0.0 15.4 12.4 14.2 11.8 14.0 11.7 12.5
Kohleria affinis Oct 0.0 15.0 11.7 12.8 11.3 12.9 10.8 10.7
Kohleria affinis Sep 5.0 15.6 11.8 13.9 12.4 14.4 13.2 12.8

21 Flowering correlations in predictions

Grab an example Drymonia teuscheri v Drymonia collegarum

## # A tibble: 14 x 3
## # Groups:   Model [7]
##    Model                   Plant                mean
##    <chr>                   <fct>               <dbl>
##  1 phylogenetic_repulsion  Drymonia collegarum 0.164
##  2 trait_repulsion         Drymonia collegarum 0.170
##  3 interaction_attraction  Drymonia collegarum 0.200
##  4 phylogenetic_attraction Drymonia collegarum 0.218
##  5 trait_attraction        Drymonia collegarum 0.218
##  6 interaction_repulsion   Drymonia collegarum 0.219
##  7 baseline                Drymonia collegarum 0.232
##  8 phylogenetic_repulsion  Drymonia teuscheri  0.190
##  9 trait_repulsion         Drymonia teuscheri  0.197
## 10 interaction_attraction  Drymonia teuscheri  0.232
## 11 interaction_repulsion   Drymonia teuscheri  0.247
## 12 phylogenetic_attraction Drymonia teuscheri  0.251
## 13 trait_attraction        Drymonia teuscheri  0.252
## 14 baseline                Drymonia teuscheri  0.278
D["Drymonia teuscheri","Drymonia collegarum"]
## [1] 0.02974
Dtraits["Drymonia teuscheri","Drymonia collegarum"]
## [1] 0.04191869
Dint["Drymonia teuscheri","Drymonia collegarum"]
## [1] 0.7483344

Logit E

inv.logit E

## # A tibble: 6 x 4
## # Groups:   Model [6]
##   Model                   Var1               Var2            Correlation_E
##   <chr>                   <fct>              <fct>                   <dbl>
## 1 interaction_attraction  Drymonia teuscheri Drymonia colle…      -0.00920
## 2 interaction_repulsion   Drymonia teuscheri Drymonia colle…      -0.215  
## 3 phylogenetic_attraction Drymonia teuscheri Drymonia colle…       0.977  
## 4 phylogenetic_repulsion  Drymonia teuscheri Drymonia colle…      -0.951  
## 5 trait_attraction        Drymonia teuscheri Drymonia colle…       0.961  
## 6 trait_repulsion         Drymonia teuscheri Drymonia colle…      -0.949
## # A tibble: 7 x 4
## # Groups:   Model [7]
##   Model                   Var1               Var2            Correlation_P
##   <chr>                   <fct>              <fct>                   <dbl>
## 1 baseline                Drymonia teuscheri Drymonia colle…       NA     
## 2 interaction_attraction  Drymonia teuscheri Drymonia colle…       -0.0519
## 3 interaction_repulsion   Drymonia teuscheri Drymonia colle…       -0.217 
## 4 phylogenetic_attraction Drymonia teuscheri Drymonia colle…        0.966 
## 5 phylogenetic_repulsion  Drymonia teuscheri Drymonia colle…       -0.642 
## 6 trait_attraction        Drymonia teuscheri Drymonia colle…        0.951 
## 7 trait_repulsion         Drymonia teuscheri Drymonia colle…       -0.665
## # A tibble: 7 x 4
## # Groups:   Model [7]
##   Model                   Var1               Var2         Correlation_Ynew
##   <chr>                   <fct>              <fct>                   <dbl>
## 1 baseline                Drymonia teuscheri Drymonia co…           0.354 
## 2 interaction_attraction  Drymonia teuscheri Drymonia co…          -0.0358
## 3 interaction_repulsion   Drymonia teuscheri Drymonia co…          -0.283 
## 4 phylogenetic_attraction Drymonia teuscheri Drymonia co…           0.962 
## 5 phylogenetic_repulsion  Drymonia teuscheri Drymonia co…          -0.646 
## 6 trait_attraction        Drymonia teuscheri Drymonia co…           0.914 
## 7 trait_repulsion         Drymonia teuscheri Drymonia co…          -0.668